#MCES calibration====
a.settings.calib <- data.frame(mu.a=log(c(4,4.05,727,NA,NA)),
                               sigma.a=c(0,0,0,NA,NA),
                               dave=c(0.32,0.4,0.26,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                               mu.b0 = c(4.2,4.2,7.3,NA,NA), #  x0 (constant): shifting up lowers outside good share
                               speed =c(0.9,0.9,0.2,NA,NA)) 

b.settings.calib <- data.frame(mu.a=log(c(4,4.05,715,NA,NA)), #note the log
                               sigma.a=c(0,0,0,NA,NA),
                               dave=c(0.335,0.4,0.28,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                               mu.b0 = c(4.2,4.2,7.25,NA,NA), #  x0 (constant): shifting up lowers outside good share
                               speed =c(0.9,0.9,0.2,NA,NA)) 
#
c.settings.calib <- b.settings.calib

#MLOG calibration====
a.settings.mlog.calib <- data.frame(mu.a=c(-1.77,-1.85,1.75,NA,NA),
                                    sigma.a=c(0,0,0,NA,NA),
                                    dave=c(0.6,0.84,0.17,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                                    mu.b0 = c(0,0,2.3,NA,NA), #  x0 (constant): shifting up lowers outside good share
                                    speed =c(0.9,0.9,0.4,NA,NA)) 
#
b.settings.mlog.calib <- data.frame(mu.a=c(-1.77,-1.95,1.7,NA,NA),
                                    sigma.a=c(0,0,0,NA,NA),
                                    dave=c(0.6,0.95,0.21,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                                    mu.b0 = c(0,0,2,NA,NA), #  x0 (constant): shifting up lowers outside good share
                                    speed =c(0.8,0.7,0.3,NA,NA)) 
#
c.settings.mlog.calib <- b.settings.mlog.calib
